home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #263 (1993)(Rhein-Sieg-Soft).zip
/
Franz PD Disk #263 (1993)(Rhein-Sieg-Soft).adf
/
VK_PRT_3
/
VK_PRT.GFA
(
.txt
)
< prev
next >
Wrap
GFA-BASIC Amiga
|
1993-10-11
|
60KB
|
759 lines
GFA-AMIGAB
USING
MOSEK
VERSION
LOESCH
FUELL
SUFFIX
SUFFIX2
SUFFIX3
SRG22
SHORP0
SHORP2
SHORP1
SHORP6
SHORP5
SHORP4
SHORP3
CHECK
WINTEXT
FEHLER
FREMEM
DATEIGROESSE
VERZNAME
INDNR
VERZNAME
LABEL
FELDNAME
FENAM
FINDEX
DRUCK
FELDIND0
FELDIND1
FELDIND2
X FELDINDEX
FELDIND
VERZSIZE
VERZBLKS
INDNR0
INDNR1
INDNR2
INDNR
LRAND
SATZLAENGE
SATZNR
RECORD
RICHTUNG
SORT1
SORT2
DUMMY
MAXANZAHLFELDER
RECSEL
FORMAT
DRUCK
FELDERJN
SORTIERT
EINGERICHTET
RELOFFEN
OPENREQ
COUNTER
ANZAHLINDEX
GEFSATZ
SPALTE
GEFUNDEN
SUCHEN
FOUND
SORTF
ABBRUCH
DOPPEL
DUMMY1
DUMMY2
SEARCH
CHECK
GESPEICHERT
WINDOW6
BUTTON
ZEILEN
DUMMY
SOERIERT
SORIERT
AGAIN
EXITPROC
FELDER2
FELDNAMENAENDERN
FENAAE1
FENAAE2
FENAAE3
INDEXF
FELDNAMENSELEKT
EINGABE2
EXITEG
EXITFUNC
NEINL EXITFUNC2
KARTELESEN
AUSGABE
ENDSUBR
NOCHMAL
SORT.END
DOPEN
INTEXT
LLENDE
WA1 EXITFUNC3
LENDE
VENDE
JAENDE
NEINENDE EXITFUNC4
DRUCKEN DAUSGANG1
DRUCKEN70X70 DAUSGANG2
ENDFORM
A4510
EXIT1
EXITSUB
EXITSUB2
EXITSUB3
ENDE.PR4800
ENDS FEHLEREND
ENDESUBR
GETKEY EXITFUNC7
GETKE EXITFUNC6
PWEITER
PR.NEXT
NEXT.NUM
PR4750_ENDE
INWE2
INDEX
ENDE.AENDERN
CTRL.SHIFT.ALT
TITEL
TEXT1
MENAUS
GETDIR
AUSWAHL
EINRICHTEN
LADEN
SCHLIESSEN
DATEILOESCHEN
VERZEICHNIS
EINGABE
DATENAUS
DATSUCH SORTIEREN
FILTER
DATEI
DFORMAT
LISTE
TAS MENUESAUS
MENUESAN
TEXT2
TEXT3
DATEINAMEEINGABE
OPENWIN4
GETTEXT
OPENWIN4.BIG
INFO KOPFZEILE
LOESCHEN FELDNAMEN
FELDNAMEN2
FELDNAMEN3
WAND2 DATEITEST REQUESTER
RELEINRICHTEN
OEFFNEN
OEFFNEN2
INPUTROUTINE
SATZSCHREIBEN
CLOSEDATEI
KARTESUCHEN
MODUSSETZEN
SUCHEINGABE
PRUEFEN
KARTELOESCHEN
WEITER2
AENDERN
ETIKETT89X36
ETIKETT70X70
SORTDAT
PAINT4
AUSGANG
LINEFEED
PRINTER
PR200
PR4110
PR4120
PR4125
PR4145
PR4150
PR4115
PR4117
PR4300
PR4350
PR4400
PR4160
PR4500
PR4550
PR4650
PR4700
PR4750
PR4800
PR4450
PR4475
PR4480
PR4490
PR4492
PR4494
PR4540
DFELDER
PR4760
PR4780
PR5000
PR5100
PR5290
PR5200 OPENWIN11
MODUS6
FEHLER
SORTDIR
GETLINE
PINIT
INTEXT
PR4710
PR4720
DRU.PARA.SAVE
DRU.PARA.LOAD
FARBE
INLINE
FARBWAHL
CHOOSE
SORTP
PFIELD
VORGABE
LAENGE
VarioKartei_PRT (rel/indexsequentiell) Version 3.02a
Lothar Berndt, 46446 Emmerich, letzte
nderung am 16.08.93
Variokartei_PRT, Version 3.02aFF
Variokartei-ScreenF
Variokartei-SchalterF
Hintergrund mittelgrau
schwarz
hellblau
MaxAnzahl Zeichen Datenfelder
MaxAnzahl Datens
tze (Karten)
MaxAnzahl Felder -1 (0-13 = 14 Felder)
AAOOUUSF
Alle ASCII
In Sortiervorgabe einsetzen
abcdefghijklmnopqrstuvwxyz!B
Durch Gro
buchstaben ersetzen
Umlaut oder Eszet?
1=Adre
etiketten, 2=Datensatz, 3=Liste
Recordselektion 3=Alle Datens
1=80 ZZ, 2=96 ZZ, 3=136 ZZ
.relFF
(Rel-Datei) Daten
.felFF
(Seq-Datei) Feldnamen
.indFF
(Seq-Datei) Werte zum Druck
,SUCHDATEN nicht gefunden, eine Taste dr
ckenF
ERSTE KARTEF
LETZTE KARTEF
Maximale Anzahl erreichtF
Daten ausgeben mit Index auf F
Variokartei-ScreenF
Das geht nicht!Fe
Sicher?F
Klick auf PRINT oder EXIT
etiketten F
Datensatz F
Liste F
Pica, 80 Zeichen F
Elite, 96 Zeichen F
Schmal,136 Zeichen F
Karte suchen F
In Feldern suchen F
Alle Karten F
Fettdruck an F
Doppeldruck an F
Fett/Doppel aus F
Datei
ffnen oder einrichtenF
%Datei einrichten, Dateinamen eingebenFr
"Datei einrichten, Felder und IndexF
Daten eingebenF
)Daten unsortiert ausgeben, mit Index auf Fe
'Daten sortiert ausgeben, mit Index auf F
Daten suchen, mit Index auf Fn
Indexfeld sortierenFd
Datei
ffnenF
Datei von Diskette l
schenF
BeendenFn
ESC (escape)
hrungszeichen (quotationmarks)
cksetzen (reset)
Initialisieren (initialize)
[0mFF
Normaler Zeichensatz (normal character set)
[1mFF
Fettdruck ein (boldface on)
[22mF
Fettdruck aus (boldface off)
[0wFF
Normale Zeichenbreite(normal pitch)
[2wFF
Elite ein (elite on)
[1wFF
Elite aus (elite off)
[6wFF
Breitdruck ein (enlarged on)
[5wFF
Breitdruck aus (enlarged off)
[4wFF
Schmaldruck ein (condensed fine on)
[3wFF
Schmaldruck aus (condensed fine off)
[2vFF
Hochstellen ein (superscript on)
[1vFF
Hochstellen aus (superscript off)
[4vFF
Tiefstellen ein (subscript on)
[3vFF
Tiefstellen aus (subscript off)
nschrift ein (letter quality on)
nschrift aus (letter quality off)
Doppeldruck ein (doublestrike on)
Doppeldruck aus (doublestrike off)
[72tF
Blattl
nge 72 Zeilen (set form length 72 lines)
[6qFF
Perforationssprung 6 Z (perf skip 6 lines)
DateiF
einrichten F
ffnen F
schlie
en F
schen F
VerzeichnisF
importierenF
exportierenF
sortieren F
drucken F
Index neu F
Ende F
DatensatzF
eingebenF
ausgebenF
suchen F
Farbe F
Info F
ProgrammF
Datei F
Format F
Etikett F
Liste F
Tasten F
Verzeichnis lesenFa
DatenF
V A R I O K A R T E I FF
Lothar Berndt 1993FF
NDERNF
ANFANG
ANFANGF
<<<FN
>>>FN
ENDE
ENDEF
SCHEN
SCHENF
GEHE NACH KA.NUMMER
GEHE NACH KA.NUMMERF
EIN ETIKETT 89x36
EIN ETIKETT 89 X 36F
EIN ETIKETT 70x70
EIN ETIKETT 70 X 70F
NEINF
ABBRUCHF(
ffnenF
AbbruchF
ABBRUCHF
Das geht nicht!. DieFF
Indexdatei ist sort.FF
Zuerst schie
en, dannF
wieder
ffnen.FF
*Der Bezugspunkt f
r das erste Etikett ist:FF
&Setzen Sie die Etikettoberkante b
ndigFF
mit der Farbbandoberkante.FF
Dateinamen eingeben: F
Daten/
Daten/
Daten/
InfoF
Kartennummer:F
Satznummer:F
Frei BASIC:"7
Frei System:"7
Karten belegt:"7
Karten frei:"7
Dateiname:";
FF
FF
e "B
lesen
schreiben
Daten/
Dateiname: ";
Die Datei existiert bereits!FF
berschreiben?
NEIN Fb
Dateiname: ";
Anzahl Felder (1 bis 14)FF
Dateiname: ";
FeldnamenF
Feldl
ngen bis "7
11 Punkte default
Feldnamen
Feldl
Index festlegenF
Mit der Eingabe einer FeldnummerFF
!legen Sie fest, welches Feld beimF
ffnen einer Datei das IndexfeldFF
"sein soll. Das Indexfeld kann sp
ter problemlos ge
ndert werden.F
Feldnummer eing. 1 -
Nur Feldnummer 1 bis"7
Alles OK?
NEIN F
Indexfelder aus Reldatei einlesen
Kartennummer:"7
Frei BASIC:"7
Karten belegt:"7
Karten frei:"7
Dateiname:";
Eingaben OK?F
NEIN
ABBRUCH
Gehe nach NummerF
Kartennummer eingeben: F
nur Karte "F
1 bis "7
Karte l
schenFs
Karte l
schen?
ABBRUCH F
Diese Funktion istFF
noch nichtFF
implementiert!FF
Daten suchen im Feld
Ich suche nach
, klick auf <<< < > >>>F
Klick in 1. Fu
zeile
NDERN
ANFANG
ENDE
Karte l
schen nicht implementiert
Klick in 2. Fu
zeile
Gehe nach Nr.
ETIKETT drucken
ETIKETT drucken
Karte
ndernF
Karte ge
ndertFF
sortieren?
NEIN F
Sortiert wird das Feld
DateinamenFF
BytesF
ckeFF
Verzeichnis lesenFa
DatenF
scroll ab
scroll auf
ffnen
Abbruch
Daten/
Daten/
Daten/
LIMITW #wnr|,640,54+(m|+1)*8,640,165
Schlie
e DateiF
Dateinamen eingeben: F
Daten/
Daten/
Daten/
Datei:FF
ist gel
scht.FF
DatenF
Die linke Maustaste dr
ckenF
Daten importierenFn
&Als Feldtrenner brauche ich dezimal 10FF
&Als Satztrenner brauche ich dezimal 10FF
Pfad und Dateinamen "
Bearbeite Satznummer: FF
####!7
Verzeichnis lesenF
DatenF
Die Datei `"
' ist importiert.FF
Linke Maustaste dr
ckenF"
Daten exportierenF
Feldtrenner: F
Satztrenner: F
Pfad und Dateiname "
Bearbeite Satznummer: FF
####!7
Die Datei '"?
' ist in die Datei '"
' exportiert.F
Linke Maustaste dr
ckenFe
Index wechselnF
Feldnummer eing. 1 -
nur Feldnummer 1 bis "7
Index einlesenF
Sicher?
NEIN F
Datens
tze:"7
Dateiname:";
PAR:F
@ "FF
Eine Leerzeile f
r PerfSprung
PRT:F
Normale Zeichenbreite, Zeichensatz
"F" LQ-Modus
72 Zeilen pro Blatt
6 Zeilen frei, oberer u. unterer Rand je 3 Z
Elite ein ,12 Zeichen Zoll
Schmal ein ,17 Zeichen Zoll
Fett ein, Doppel aus
Doppel ein, Fett aus
Ein Etikett 89 X 36 mm druckenF
Drucker OK?
ABBRUCH Fn
Fuer Lochrand-Etiketten Format 89 * 36,1 mm (fuer 5.25 Zoll Disk)
Drucke Etikett "7
Ausgabekanal f
r Drucker
ffnen
Reset Drucker
LQ-Modus
Daten
Return line feed
Daten in Pica max. 32 Zeichen Zeile
Return line feed
Normale Zeichenbreite
Schmaldruck ein
Daten max. 55 Zeichen Zeile
Reset Drucker
Ein Etikett 70 X 70 mm druckenF
Drucker OK?
ABBRUCH Fn
Drucke Etikett "7
Ausgabekanal f
r Drucker
ffnen
Reset Drucker
LQ-Modus ein
Schmaldruck ein
WRITE DATA --->F
2. Zeile R
ckseite
READ ONLY --->FF
1. Zeile R
ckseite
Reset Drucker
LQ-Modus ein
Elite ein
Tiefstellen ein
Daten auf Schmalseite Disk
Return line feed
Reset Drucker
LQ-Modus ein
Breitdruck ein
Daten
Breitdruck aus
RETURN line feed
Elite ein
Daten max. 30 Zeichen Zeile
Return line feed
Normale Zeichenbreite
Schmaldruck ein
Daten max. 44 Zeichen Zeile
Reset Drucker
FilterF
JOBSFF
RECORD SELECTIONFF
PRINTF
SAVEFF
ZEICHEN JEFF
ZEILEF
FELDERFF
PARAM.FF
LOADFF
PARAM.FF
ZEICHEN/ZEILEF
DRUCKST
LINKER RANDF
PRINTF
EXITFF
###!7
MARKFF
JOBS
Record select
ZEICHEN/ZEILE
DRUCKST
PRINT FELDER
Mark
SAVE PARAM.
LOAD PARAM.
PRINT
EXIT
Karte(n) suchen
Kartennummer(n), nur RETURN=ENDEFF
Nur 1 bis "7
unteren Fensterinhalt l
schen
In Feldern suchen
e FF
Klick auf PRINT oder EXITF
SUCHDATEN: "
Alle Karten
Selektion der Felder
"FF
###!7
Ausgabe auf Drucker
#WIEVIELE KOPIEN ? (NUR RETURN=EXIT)F
Leerzeile
Anrede
Leerzeile
Position bestimmen
@ "Fs
Vorname
Nachname
Stra
Leerzeile
PLZ und Ort
farbwahl
Das ProgrammFF
!Von Lothar Berndt, 46446 EmmerichF
7Erstellt im Jahre 1989 - 1993, letzte
nderung 16.08.93F
-Diese Version a ben
tigt einen DruckertreiberF
/im Verzn. 'devs/printers' auf der StartdisketteF
Datens
tze pro DateiF
%1 bis 14 Felder pro Datensatz (Karte)F
Feldl
nge 1 bis 62 Zeichen"F
DateiF
Aktuelle Datei..............:";
Dateigr
e in Bytes.........:"7
Feie Bytes Basic............:"7
Anzahl Datens
tze (Karten)..:"7
Anzahl Felder...............:"7
Datensatzl
nge..............:"7
FormatFF
Feldname: "
Index"
nge: "7
Feldname: "
"
nge: "7
'Bezugspunkt f
r Etikett 89X36 und 70X70F
Liste druckenF
' Der Bezugspunkt des Endlospapiers ist:F
= Setzen Sie die Papieroberkante b
ndig mit der Metall- oderF
= Kunststoffnase des Druckkopfes. Der Listendruck erfolgt for-F
= matiert, das hei
t, da
die Perforation
bersprungen wird.F
= Die erste Formatanweisung mu
vom Programm aus erfolgen.F
= Variokartei f
hrt einen Zeilenvorschub aus, in VerbindungF
= mit dem Bezugspunkt sind das insgesammt 3 Leerzeilen auf derF
= ersten Seite. Die weitere Formatierung
bernimmt dann derF
= Drucker, der dann 66 Zeilen druckt, dann das Papier 6 ZeilenF
ber die Perforation transportiert.FF
Das Endergebnis ist folgendes:F
= 3 Zeilen frei, 66 Zeilen Daten, 3 Zeilen frei. Sie k
nnenF
= dann den rechten Lochrand abrei
en, die Bl
tter trennen undF
= dann mit einem Klammerhefter den linken Lochrand heften.F
= Das Endergebnis ist eine Art Heft, zu dem Sie Ihre ListeF
= gemacht haben. Siehe auch VK.dok und die Datei ProbPerf."FF
-Tastaturbelegung beim eingeben/suchen/
ndern F
8 RETURN = ein Feld tiefer, leere Felder werden alsFF
2 Leerfelder gesichert ( chr$(32) )!FF
' CURSORTASTEN = ab, auf, rechts, links.F
4 DEL = l
scht ein Zeichen unter dem Cursor,FF
7 nachfolgende Zeichen r
cken nach links.F
4 BACKSPACE = l
scht ein Zeichen links vom Cursor,FF
7 nachfolgende Zeichen r
cken nach links.F
= F10 = l
scht das aktuelle Feld (wo der Cursor ist).F
= ESC = erzwingt den Abbruch der Eingabe im aktuellenF
: Feld. Da die Felder vorher mit LeerzeichenFF
7 gef
llt wurden, werden leere Felder alsF
6 Leerfelder gesichert (wie bei RETURN)!FF
? SPACE = schiebt den Text rechts vom Cursor nach rechts.F
? LINKE MAUST. = positioniert den Cursor wo d. Mauszeiger steht.F
! Es ist ein Fehler aufgetreten! |F
OK | OK | OK FF
+Fataler Fehler, Programm wird neu gestartetF
RequesterF
Nein
Anzahl Zeilen-1,Spalte,Zeile,Cursorfarbe,Hintergrundfarbe,Laenge(),dat$()
RETURN
BACKSPACE
F10, aktuelle Zeile l
schen
> F
rechts
links
'!&FF
Spalte,Zeile,AnzahlZeichen,Cursorfarbe,Hintergrundfarbe,Text$
Klick in OK
Klick in ABBR.
BACKSPACE
'(hF#
F10, aktuelle Zeile l
schen
rechts
links